home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / taxman.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  71 lines
  1. 1 CX=0
  2. 2 PRINT"[147]":PRINT:PRINT:PRINT:PRINT
  3. 3 PRINT"              T A X M A N"
  4. 4 PRINT:PRINT
  5. 5 PRINT"PICK A NUMBER , AND THE TAXMAN WILL"
  6. 6 PRINT"TAKE THE MULTIPLES AND FACTORS OF YOUR"
  7. 7 PRINT"NUMBER. THE ONE WITH THE HIGHEST TOTAL"
  8. 8 PRINT"AT THE END OF THE GAME WINS."
  9. 9 INPUT"HIGHEST NUMBER (>=100)";KT
  10. 10 IFKT>100ORKT<1THEN9
  11. 11 DIMN(KT)
  12. 12 PRINT"[147]";
  13. 100 FORX=1TOKT
  14. 110 N(X)=X
  15. 120 PRINTN(X);
  16. 125 IFX<10THENPRINT" ";
  17. 126 IFX>99THENPRINT"[157]";
  18. 129 TT=TT+X
  19. 130 NEXTX
  20. 135 PRINT
  21. 140 PRINT"               ";:PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  22. 145 INPUT"WHAT NUMBER";C
  23. 150 IFC<1ORC>KTTHEN140
  24. 154 IFN(C)=0THENPRINT"ALREADY USED";:FORG=1TO400:NEXT:CX=1
  25. 155 IFCX=1THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]";"            ";"[145][145]":CX=0:GOTO140
  26. 157 PS=PS+N(C)
  27. 160 N(C)=0
  28. 169 PRINT"THE TAXMAN TAKES";
  29. 170 FORQ=1TOKT
  30. 180 A=INT(C/Q)
  31. 190 B=C/Q
  32. 191 I=Q*C
  33. 200 IFA=BANDN(A)<>0THENPRINTA;:CS=CS+A:N(A)=0:MP=1
  34. 201 IFQ*C<KT+1THEN203
  35. 202 GOTO210
  36. 203 IFN(Q*C)<>0THENPRINTI;:CS=CS+I:N(I)=0:MP=1
  37. 210 NEXT
  38. 220 IFMP=0THENPRINT" NOTHING"
  39. 230 MP=0
  40. 240 PRINT:PRINT
  41. 300 PRINT"";
  42. 320 FORZ=1TOKT
  43. 330 IFN(Z)=0ANDZ<10THENPRINT" ";CHR$(32);"[146]";"  ";:GOTO350
  44. 335 IFN(Z)=0ANDZ<100THENPRINT" ";CHR$(32);"[146]";"  ";:GOTO350
  45. 336 IFN(Z)=0ANDZ>99THENPRINT" ";CHR$(32);"[146]";"  ";"[157]";      :GOTO350
  46. 340 PRINTN(Z);
  47. 345 IFZ<10THENPRINT" ";
  48. 346 IFZ>99THENPRINT"[157]";
  49. 350 NEXTZ
  50. 355 PRINT""
  51. 356 PRINT"YOUR SCORE";PS:PRINT"TAXMAN'S SCORE";CS
  52. 357 IFCS+PS=TTTHEN370
  53. 360 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145]                                        ";
  54. 361 PRINT"                                        ";
  55. 362 PRINT"                                        ";
  56. 363 PRINT"                                        ";
  57. 364 PRINT"                                        ";
  58. 365 PRINT"                                        ";
  59. 366 PRINT"                                        ";
  60. 368 PRINT"[145][145][145][145][145][145][145][145][145]"
  61. 369 GOTO140
  62. 370 IFCS>PSTHEN400
  63. 380 PRINT"CONGRATULATIONS!":PRINT"YOU BEAT THE TAXMAN";PS;"TO";CS
  64. 390 GOTO410
  65. 400 PRINT"THE TAXMAN BEAT YOU";CS;"TO";PS
  66. 410 PRINT"ANOTHER GAME ?"
  67. 420 GET A$:IFA$=""THEN420
  68. 430 IFA$="Y"THENRUN
  69. 440 PRINT" O.K. , GOODBYE !"
  70. 450 END
  71.